<%
if request.QueryString("ID")="" then
response.Write "您要访问的页面不存在或者已删除!"
else
dim weblog
Set weblog=Server.CreateObject("ADODB.RecordSet")
SQL="SELECT * FROM Web_News where new_ID="&request.QueryString("id")
weblog.Open SQL,Conn,1,3
if weblog.eof or weblog.bof then
response.Write "您要访问的页面不存在或者已删除!"
else
if Request.Cookies(CookieName)("rnew"&weblog("new_ID"))="" then
Response.Cookies(CookieName)("rnew"&weblog("new_ID"))=weblog("new_ID")
weblog("new_ViewNums")=weblog("new_ViewNums")+1
weblog.update
GetHotnews(2)
GetHottrend(2)
end if
%>
<%=HtmlEncode(weblog("new_Title"))%>
Time:<%=DateToStr(weblog("new_PostTime"),"Y-m-d")%> Clicks:<%=weblog("new_ViewNums")%> Time
<%
if weblog("new_From")<>"" then
response.Write "Source:"
response.Write weblog("new_From")
end if
%>
<%=UnCheckStr(weblog("new_Content"))%>
<%
weblog.close
set weblog=nothing
end if
end if
%>
Mirror